home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / biz / dbase / tm_dbms22.lha / dbmsv2.2 / arexx / DB_VisualInfo.rexx < prev    next >
OS/2 REXX Batch file  |  1996-10-18  |  585b  |  2 lines
  1. /* Optimized with RexxOpt 1.8 */
  2. pref='Sys:Prefs/DBMS.prefs';OPTIONS RESULTS;IF ~OPEN('Prefs',pref,'r') THEN EXIT;DO i=1 TO 5 BY 1;DO FOREVER;w=READLN('Prefs');IF LEFT(w,1)=';' THEN LEAVE;END;END;DO FOREVER;w=READLN('Prefs');IF w=''|EOF('Prefs') THEN LEAVE;IF LEFT(w,8)='GPTCH = ' THEN;DO;len=LENGTH(w)-8;gpth=RIGHT(w,len);END;IF LEFT(w,8)='VPTCH = ' THEN;DO;len=LENGTH(w)-8;vpth=RIGHT(w,len);END;END;s=CLOSE('Prefs');GETFIELD 'Ôcieûka';iff=result;IF ~OPEN('Iff',gpth||iff,'r') THEN;DO;OKAY1 'Nie ma takiego pliku lub niewîaôciwa ôcieûka!';EXIT;END;ADDRESS COMMAND vpth||' '||gpth||iff